Hyper Stacks 1994 May/Hyper Stacks (Pacific HiTech)(1994)[Mac].iso/HyperTalk/Reference Material/hypercard-popupmenus-script.txt

Internet Message Format | 1988-01-14 | 629 b | [TEXT/????]

Date:      Mon, 23 Nov 87 09:00:10 PST
From:     [e-mail]
Subject:   PopUpMenu Script

Here is a sample script to use the PopUpMenu XCMD that was recently posted.

on mouseDown
  global lastItem
  if lastItem is empty then put 0 into lastItem
  get the rect of card window
  put "(Pick a Number,(-,One,Two,Three,Four" into choices
  put PopUpMenu(choices, lastItem,-
  (the mouseV + item 2 of it),-
  (the mouseH + item 1 of it)) into junk
  if junk is not 0 then
    put junk into lastItem
    put "Why does everyone pick" && item lastItem of choices & "?" into msg
    wait 1 secs
    hide msg
  end if
end mouseDown

Jon